home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / tpstuff1.arc / DSKRDBM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-08-09  |  430 b   |  32 lines
  1.  
  2. (* Listing 2: BYTE disk read benchmark in Turbo Pascal. *)
  3.  
  4. { copywrited 1984 by Laine Stump.  For private, non-commercial use only }
  5.  
  6. PROGRAM read (output, infile);
  7.  
  8. CONST
  9.     nr = 512;
  10.  
  11. VAR
  12.     infile : text;
  13.  
  14.     b : string[128];
  15.     i : integer;
  16.  
  17. begin
  18. assign (infile, 'b:test');
  19. reset (infile);
  20. FOR i := 1 to nr DO
  21.     read (infile, b);
  22. close (infile);
  23. writeln ('done');
  24. end. { read }
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.